home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / himetr1r / frmabout.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-15  |  8.5 KB  |  265 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "About Developers Code Book"
  6.    ClientHeight    =   4305
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   5265
  10.    BeginProperty Font 
  11.       Name            =   "Tahoma"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "frmAbout.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   4305
  24.    ScaleWidth      =   5265
  25.    ShowInTaskbar   =   0   'False
  26.    StartUpPosition =   3  'Windows Default
  27.    Begin VB.Timer tmrScroll 
  28.       Enabled         =   0   'False
  29.       Interval        =   100
  30.       Left            =   120
  31.       Top             =   2520
  32.    End
  33.    Begin VB.CommandButton cmdCredits 
  34.       Caption         =   "&Credits"
  35.       Height          =   375
  36.       Left            =   2400
  37.       TabIndex        =   5
  38.       Top             =   3720
  39.       Width           =   1095
  40.    End
  41.    Begin VB.CommandButton cmdOK 
  42.       Caption         =   "&OK"
  43.       Default         =   -1  'True
  44.       Height          =   375
  45.       Left            =   3600
  46.       TabIndex        =   4
  47.       Top             =   3720
  48.       Width           =   1215
  49.    End
  50.    Begin VB.PictureBox picCredits 
  51.       BackColor       =   &H00FFFFFF&
  52.       Height          =   1575
  53.       Left            =   240
  54.       ScaleHeight     =   1515
  55.       ScaleWidth      =   4515
  56.       TabIndex        =   6
  57.       Top             =   120
  58.       Visible         =   0   'False
  59.       Width           =   4575
  60.       Begin VB.TextBox txtCredits 
  61.          Alignment       =   2  'Center
  62.          BorderStyle     =   0  'None
  63.          BeginProperty Font 
  64.             Name            =   "Tahoma"
  65.             Size            =   9.75
  66.             Charset         =   0
  67.             Weight          =   700
  68.             Underline       =   0   'False
  69.             Italic          =   0   'False
  70.             Strikethrough   =   0   'False
  71.          EndProperty
  72.          ForeColor       =   &H000080FF&
  73.          Height          =   1215
  74.          Left            =   0
  75.          Locked          =   -1  'True
  76.          MultiLine       =   -1  'True
  77.          TabIndex        =   7
  78.          Top             =   120
  79.          Width           =   4455
  80.       End
  81.    End
  82.    Begin VB.Shape Shape1 
  83.       BorderColor     =   &H00FF8080&
  84.       BorderWidth     =   10
  85.       Height          =   1335
  86.       Left            =   3360
  87.       Top             =   840
  88.       Width           =   1455
  89.    End
  90.    Begin VB.Image imgLogo 
  91.       BorderStyle     =   1  'Fixed Single
  92.       Height          =   1560
  93.       Left            =   240
  94.       Picture         =   "frmAbout.frx":014A
  95.       Top             =   120
  96.       Width           =   4560
  97.    End
  98.    Begin VB.Label lblEmail 
  99.       AutoSize        =   -1  'True
  100.       BackStyle       =   0  'Transparent
  101.       Caption         =   "sam@vbsquare.com"
  102.       DragIcon        =   "frmAbout.frx":1611C
  103.       ForeColor       =   &H80000007&
  104.       Height          =   195
  105.       Left            =   720
  106.       TabIndex        =   3
  107.       Top             =   3360
  108.       Width           =   1455
  109.    End
  110.    Begin VB.Label lblUrl 
  111.       AutoSize        =   -1  'True
  112.       BackStyle       =   0  'Transparent
  113.       Caption         =   "http://www.www.vbsquare.com/dev/"
  114.       DragIcon        =   "frmAbout.frx":16426
  115.       ForeColor       =   &H80000007&
  116.       Height          =   195
  117.       Left            =   720
  118.       TabIndex        =   2
  119.       Top             =   3120
  120.       Width           =   2730
  121.    End
  122.    Begin VB.Label lblDesc 
  123.       BackStyle       =   0  'Transparent
  124.       Caption         =   $"frmAbout.frx":16730
  125.       Height          =   855
  126.       Left            =   720
  127.       TabIndex        =   1
  128.       Top             =   2160
  129.       Width           =   3615
  130.    End
  131.    Begin VB.Label lblVer 
  132.       AutoSize        =   -1  'True
  133.       BackStyle       =   0  'Transparent
  134.       Caption         =   "Version 1.0.0"
  135.       BeginProperty Font 
  136.          Name            =   "Tahoma"
  137.          Size            =   14.25
  138.          Charset         =   0
  139.          Weight          =   700
  140.          Underline       =   0   'False
  141.          Italic          =   0   'False
  142.          Strikethrough   =   0   'False
  143.       EndProperty
  144.       ForeColor       =   &H000080FF&
  145.       Height          =   345
  146.       Left            =   720
  147.       TabIndex        =   0
  148.       Top             =   1680
  149.       Width           =   1890
  150.    End
  151.    Begin VB.Shape Shape2 
  152.       BorderColor     =   &H00C0FFFF&
  153.       BorderWidth     =   12
  154.       Height          =   1215
  155.       Left            =   2880
  156.       Top             =   1920
  157.       Width           =   1335
  158.    End
  159. Attribute VB_Name = "frmAbout"
  160. Attribute VB_GlobalNameSpace = False
  161. Attribute VB_Creatable = False
  162. Attribute VB_PredeclaredId = True
  163. Attribute VB_Exposed = False
  164. '----------------------------------------
  165. '- Name: Sam Huggill
  166. '- Email: sam@vbsquare.com
  167. '- Web: http://www.vbsquare.com/
  168. '- Company: Lighthouse Internet Solutions
  169. '- Date/Time: 14/08/99 11:31:57
  170. '----------------------------------------
  171. '- Notes:   About form
  172. '----------------------------------------
  173. Option Explicit
  174. Private Sub cmdCredits_Click()
  175.     picCredits.Visible = True
  176.     DoEvents
  177.     tmrScroll.Enabled = True
  178. End Sub
  179. Private Sub cmdOK_Click()
  180.     Unload Me
  181. End Sub
  182. Private Sub Form_Load()
  183.     Dim strFile As String
  184.     Dim intFile As Integer
  185.     On Error GoTo vbErrHand
  186.     '// Show the user the current version
  187.     lblVer = "Version " & App.Major & "." & App.Minor & "." & App.Revision
  188.     CentreForm Me
  189.     lblURL.ToolTipText = lblURL.Caption
  190.     lblEmail.ToolTipText = lblEmail.Caption
  191.     intFile = FreeFile
  192.     strFile = App.Path & "\credits.txt"
  193.     If Dir$(strFile) = "" Then
  194.         Exit Sub
  195.     End If
  196.     Open strFile For Input As #intFile
  197.     txtCredits.Text = Input(LOF(intFile), intFile)
  198.     Close #intFile
  199.     txtCredits.Height = picCredits.Height * 49
  200.     Exit Sub
  201. vbErrHand:
  202.     WriteError Err.Number, Err.Description, "frmAbout: Load", Now, App.Path & "\err.log"
  203.     MsgBox Err.Description, vbCritical + vbOKOnly, "frmAbout: Load"
  204. End Sub
  205. Private Sub Form_Unload(Cancel As Integer)
  206.     txtCredits.Visible = False
  207. End Sub
  208. Private Sub lblEmail_DragDrop(Source As Control, X As Single, Y As Single)
  209.     If Source = lblEmail Then
  210.         With lblEmail
  211.             ShellExecute 0&, vbNullString, .Caption, vbNullString, vbNullString, vbNormalFocus
  212.             .Font.Underline = False
  213.             .ForeColor = vbBlack
  214.         End With
  215.     End If
  216. End Sub
  217. Private Sub lblEmail_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
  218.     If State = vbLeave Then
  219.         With lblEmail
  220.             .Drag vbEndDrag
  221.             .Font.Underline = False
  222.             .ForeColor = vbBlack
  223.         End With
  224.     End If
  225. End Sub
  226. Private Sub lblEmail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  227.     With lblEmail
  228.         .ForeColor = vbBlue
  229.         .Font.Underline = True
  230.         .Drag vbBeginDrag
  231.     End With
  232. End Sub
  233. Private Sub lblUrl_DragDrop(Source As Control, X As Single, Y As Single)
  234.     If Source Is lblURL Then
  235.         With lblURL
  236.             .Font.Underline = False
  237.             .ForeColor = vbBlack
  238.             Call ShellExecute(0&, vbNullString, .Caption, vbNullString, vbNullString, vbNormalFocus)
  239.         End With
  240.     End If
  241. End Sub
  242. Private Sub lblUrl_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
  243.     If State = vbLeave Then
  244.         With lblURL
  245.             .Drag vbEndDrag
  246.             .Font.Underline = False
  247.             .ForeColor = vbBlack
  248.         End With
  249.     End If
  250. End Sub
  251. Private Sub lblUrl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  252.     With lblURL
  253.         .ForeColor = vbBlue
  254.         .Font.Underline = True
  255.         .Drag vbBeginDrag
  256.     End With
  257. End Sub
  258. Private Sub tmrScroll_Timer()
  259.     If txtCredits.tOp + txtCredits.Height < picCredits.tOp Then
  260.         txtCredits.tOp = picCredits.tOp + picCredits.Height
  261.     Else
  262.         txtCredits.tOp = txtCredits.tOp - 50
  263.     End If
  264. End Sub
  265.